home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Previews / ArtEffect2.0_Demo / rexx / polygon.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-04-04  |  776 b   |  36 lines
  1. /*
  2.  * Polygons
  3.  *
  4.  * ARexx Example for: new, palette, polygon
  5.  * Author: A. Pratsch
  6.  * This script is Public Domain
  7.  */
  8.  
  9. address "ArtEffect"
  10.  
  11. new w 400 h 400 "Polygons"
  12.  
  13. /*do forever*/
  14.     /*
  15.     cr=random(0,255);
  16.     cg=random(0,255);
  17.     cb=random(0,255);
  18.     'palette r 'cr' g 'cr' b 'cb' quiet'
  19.     */
  20.  
  21.     x1=random(1,399)
  22.     y1=random(1,399)
  23.     x2=random(1,399)
  24.     y2=random(1,399)
  25.     x3=random(1,399)
  26.     y3=random(1,399)
  27.     x4=random(1,399)
  28.     y4=random(1,399)
  29.  
  30.     'rectangle pt fill mode gradient strength 80 'x1' 'y1' 'x3' 'y3
  31.     'polygon pt fill mode color strength 50 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  32.     'polygon pt airbrush mode color strength 100 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  33.     'polygon pt cut mode color strength 50 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  34.     changebrush sw 10 sh 10
  35. /*end*/
  36.